home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Windows 1993 Fall / TestDrive Windows 1993 Fall.iso / dbase / dtl / ad_apnd.cod next >
Encoding:
Text File  |  1993-03-09  |  983 b   |  35 lines
  1. //
  2. // Module Name: AD_APND.COD - Menu_Act = 7
  3. // Selectors  : Appnd_from, Appnd_type, For_Expr
  4. // Description: to issue the dBASE APPEND command
  5. // Syntax     : APPEND FROM <expFN>/?/ARRAY <array name>
  6. //                  [FOR <expL>]
  7. //                  [ [TYPE] DBASEII / DIF / FW2 / RPD / SDF / SYLK / WKS
  8. //                        [DELIMITED [WITH BLANK/<delimiter>]] ]
  9. //
  10. lc_say='Appending records from file {if Appnd_type == 5}ARRAY {endif}{Appnd_from}'
  11. DO info_box WITH lc_say
  12. //
  13. SET TALK ON
  14. APPEND FROM {if Appnd_type == 5}ARRAY {endif}{Appnd_from} \
  15. {if For_Expr} FOR {For_Expr}{endif}\
  16. {if Appnd_type && Appnd_type != 5 then} TYPE {endif}\
  17. { case Appnd_type of}
  18. { 0: // insert carriage return for DBF}
  19.  
  20. { 1:}dBASEII
  21. { 2:}FW2
  22. { 3:}RPD
  23. { 4:}DELIMITED {if Appl_Delim}WITH {Appl_Delim}{endif}
  24. { 5: // insert carriage return for ARRAY}
  25.  
  26. { 6:}SDF
  27. { 7:}DIF
  28. { 8:}SYLK
  29. { 9:}WKS
  30. { endcase}
  31. // end of if Appnd_type
  32. SET TALK OFF
  33. //
  34. // EOP AD_APND.COD
  35.